home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / qbfaqr01.zip / CGETCLR.BAS < prev    next >
BASIC Source File  |  1992-08-10  |  445b  |  13 lines
  1. SUB GetCharColor (Row%, Col%, Fore%, Back%)
  2.  
  3.    'Purpose : To get the colour attributes of a particular character
  4.    '            Note : only works in SCREEN 0
  5.    'Input   : Row% = row where character is at
  6.    '          Col% = column where the character is at
  7.    'Return  : Fore% = the foreground colour
  8.    '          Back% = the background colour
  9.    
  10.    A = SCREEN(Row%, Col%, 1)
  11.    Back% = A \ 16
  12.    Fore% = A - Back% * 16
  13. END SUB